* Fix GC mark for native compiled functions

native_intspec and native_doc fields has to be reached by the subr
cause are not anymore in the CU.

diff --git a/src/alloc.c b/src/alloc.c
index 9a01edca3f8ee4b4b13f3c9111ff46af2a47aac5..ac1730771328bbe6ed89b6c743775582c5d2b075 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6683,9 +6683,9 @@ mark_object (Lisp_Object arg)
              {
                set_vector_marked (ptr);
                struct Lisp_Subr *subr = XSUBR (obj);
-               obj = subr->native_comp_u[0];
-               eassert (obj);
-               goto loop;
+               mark_object (subr->native_intspec);
+               mark_object (subr->native_doc);
+               mark_object (subr->native_comp_u[0]);
              }
            break;